Shareware Grab Bag/Shareware Grab Bag.iso/007/qbtools1.arc/AEZERCHK.BAS

BASIC Source File | 1987-01-11 | 256b | 10 lines

rem $linesize:132
rem $title:'Application Engineer Standard Routines'
rem $subtitle:'Zero Checking'
'                Include the COMMON values
rem $include:'AESHARED.BAS'

sub zero.check (a%) static
    if a%<0% then a%=0%
end sub